Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / BLUEBERY.BAS (.txt) < prev next >

Wrap

GW-BASIC | 1985-06-29 | 29.4 KB | 1,567 lines

5 CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57 10 REM ***** ADDITIONAL DOCUMENTATION UNDER BLUEBERY.DOC IN DOS ********** 11 'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE 13 'OPEN *** LABEL/FILE PROGRAM IN MONOCHROME FOR THE IBM PC *** OPEN 14 'OPEN OPEN 15 'OPEN This is a bonus program for BLUEBERRY PIE A La Mode Buyers. OPEN 17 'OPEN It is a combination LABEL, DATA FILE, "what have you", record and OPEN 19 'OPEN filing system. It will print out 3 line labels on the EPSON or OPEN 21 'OPEN GEMINI printer. The 4th, 5th and 6th lines are held in file and OPEN 23 'OPEN only printed out in the final summary report. This program has OPEN 24 'OPEN been set up as a limited data management file for demonstration OPEN 25 'OPEN purposes. It is on this disk also as LABELPRO.BAS (in compressed OPEN 26 'OPEN form) with a five-line label set-up and a single line printout. OPEN 27 'OPEN BLUEBERY.BAS has been modified so that a basic programmer can see OPEN 28 'OPEN the ease with which this program can be adapted for custom use. OPEN 29 'OPEN The program is completely INKEY$ format-protected and is multi- OPEN 30 'OPEN MENU driven. Additional information concerning both LABELPRO.BAS OPEN 31 'OPEN and BLUEBERY.BAS is in BLUEBERY.DOC which can be DOSS accessed by OPEN 32 'OPEN TYPE command. This program may be used in whole or in part with- OPEN 34 'OPEN out restriction, license, or attribution. COLOR STATEMENTS are OPEN 35 'OPEN in the program. They may easily activated by any programmer. OPEN 36 'OPEN (c) G I N A C O --- 1963 Ver 5.2/320/160 OPEN 37 'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD 55 ' ***** < F2 > to RUN ******* < F10 > For BLUEMENU ***** 57 ' **** To avoid DOCUMENTATION BOX each time, REM or DELETE line 5 **** 60 CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT 100 SCREEN 0,1,0,0 110 LOCATE 1,1,0,12,13 120 A$ = "" 130 B$ = "" 140 C$ = "" 150 D$ = "" 160 E$ = "" 170 F$ = "" 180 DEFINTA-Z 190 I% = 0 200 DIM A$(200),B$(200),C$(200),D$(200),E$(200),F$(200),INPTR$(50),FIN$(50),AA$(200) 210 FINLEN% = 0 220 P! = 0 230 IN$ = "" 240 ON ERROR GOTO 12450 250 CLS 260 KEY OFF 270 BB$ = TIME$ 280 GOSUB 1710 290 'GOSUB 1030 300 GOTO 890 680 GOSUB 2130 690 DEF SEG = &H40 700 A! = PEEK(&H8) 710 B! = PEEK(&H9) 720 C! = PEEK(&HA) 730 D! = PEEK(&HB) 740 POKE &H8,C! 750 POKE &H9,D! 760 POKE &HA,A! 770 POKE &HB,B! 780 IF PEEK(&H9) = 3 THEN LPT$ = "1" ELSE LPT$ = "2" 790 LOCATE 7,30,0 800 COLOR 7,0 810 PRINT "Primary Printer = LPT";LPT$ + ":"; 820 COLOR 7,0 830 LOCATE 9,24 840 PRINT "To continue with program <PRESS> 1"; 850 LOCATE 11,24,0 860 PRINT "Reset LPT1 OR LPT2 <PRESS> 2";" "; 865 GOSUB 2510 870 GOSUB 3030 880 ON VAL(IN$) GOTO 2620,680 890 CLS 900 GOSUB 1220 910 GOSUB 2590 920 GOSUB 1560 930 GOTO 5770 940 REM ===== EMERGENCY REPAIR ===== 950 CLS 960 GOSUB 1220 970 GOSUB 2590 980 GOTO 2620 990 REM ===== PROGRAM FOR BOX PRINTOUT ======= 1000 CLS 1010 GOSUB 1210 1020 GOTO 5380 1030 REM ===== LPT1&2 SELECT ROUTINE ========== 1040 COLOR 7,0 1050 WW% = 76 1060 TL% = 5 1070 LL% = 13 1080 LC% = 2 1090 LOCATE TL%,LC%,0,0,7 1100 PRINT TLC$; STRING$(WW%,HL$);TRC$; 1110 FOR I% = (TL% + 1) TO (LL% - 1) 1120 LOCATE I%,LC%,0 1130 PRINT VL$; 1140 LOCATE I%, (LC% + WW% + 1),0 1150 PRINT VL$; 1160 NEXT 1170 LOCATE LL%,LC%,0 1180 PRINT BLC$; STRING$(WW%,HL$);BRC$; 1190 COLOR 7,0 1200 RETURN 1210 REM ===== PRINT BOX 1 ===== 1220 COLOR 7,0 1230 WW% = 76 1240 TL% = 1 1250 LL% = 24 1260 LC% = 2 1270 LOCATE TL%,LC%,0 1280 PRINT TLC$; STRING$(WW%,HL$);TRC$; 1290 FOR I% = (TL% + 1) TO (LL% - 1) 1300 LOCATE I%,LC%,0 1310 PRINT VL$; 1320 LOCATE I%, (LC% + WW% + 1),0 1330 PRINT VL$; 1340 NEXT 1350 LOCATE LL%,LC%,0 1360 PRINT BLC$; STRING$(WW%,HL$);BRC$; 1370 COLOR 7,0 1380 RETURN 1390 REM ===== PRINT BOX 2 ===== 1400 WW% = 69 1410 TL% = 18 1420 LL% = 23 1430 LC% = 6 1440 LOCATE TL%,LC%,0 1450 PRINT TLC$; STRING$(WW%,HL$);TRC$; 1460 FOR I% = (TL% + 1) TO (LL% - 1) 1470 LOCATE I%,LC%,0 1480 PRINT VL$; 1490 LOCATE I%, (LC% + WW% + 1),0 1500 PRINT VL$; 1510 NEXT 1520 LOCATE LL%,LC%,0 1530 PRINT BLC$; STRING$(WW%,HL$);BRC$; 1540 RETURN 1550 REM ===== PRINT BOX 3 ===== 1560 WW% = 23 1570 TL% = 20 1580 LL% = 22 1590 LC% = 50 1600 LOCATE TL%,LC%,0 1610 PRINT TLC$; STRING$(WW%,HL$);TRC$; 1620 FOR I% = (TL% + 1) TO (LL% - 1) 1630 LOCATE I%,LC%,0 1640 PRINT VL$; 1650 LOCATE I%, (LC% + WW% + 1),0 1660 PRINT VL$; 1670 NEXT 1680 LOCATE LL%,LC%,0 1690 PRINT BLC$; STRING$(WW%,HL$);BRC$; 1700 RETURN 1710 REM ===== INITIALIZATION ROUTINE ===== 1720 TLC$ = CHR$(201) 1730 TRC$ = CHR$(187) 1740 HL$ = CHR$(205) 1750 BLC$ = CHR$(200) 1760 BRC$ = CHR$(188) 1770 VL$ = CHR$(186) 1780 PR$ = "\ \ \ \" 1790 M1ST$="A THENTHEN"+CHR$(16)+" Add Records C THENTHEN"+CHR$(16)+" Choose Printer D THENTHEN"+CHR$(16)+" Disk Directories": 1800 M2ND$="E THENTHEN"+CHR$(16)+" Edit Records L THENTHEN"+CHR$(16)+" Load Disk File P THENTHEN"+CHR$(16)+" Print Label Menu": 1810 M3RD$="Q THENTHEN"+CHR$(16)+" Quit Program R THENTHEN"+CHR$(16)+" Review Records S THENTHEN"+CHR$(16)+" Save (Disk File)": 1820 REM ===== ZIPCLEAR INPUT ROUTINES ===== 1830 DIM A%(22) 1840 FOR I% = 0 TO 21 1850 READ A%(I%) 1860 NEXT 1870 DATA&h8B55 1880 DATA&hB8EC 1890 DATA&H0600 1900 DATA&H07B7 1910 DATA&H768B 1920 DATA&H8A0C 1930 DATA&H8B2C 1940 DATA&HA76 1950 DATA&HC8A 1960 DATA&H768B 1970 DATA&H8A08 1980 DATA&H8B34 1990 DATA&H676 2000 DATA&H148A 2010 DATA&HCDFE 2020 DATA&HC9FE 2030 DATA&HCEFE 2040 DATA&HCAFE 2050 DATA&H10CD 2060 DATA&HCA5D 2070 DATA&H8 2080 DATA&H0 2090 RETURN 2100 REM ===== CLEAR LPT1&2 SELECT BOX ===== 2110 REM ===== R1%=UP.LEFT.ROW% :C1%=UP.LEFT COL% ===== 2120 REM ===== R2%=LOW.LEFT.ROW%:C2%=RIGHT.COL% ===== 2130 REM ===== CLEAR LPT1&2 SELECT BOX ===== 2140 R1% = 6 2150 C1% = 3 2160 R2% = 12 2170 C2% = 76 2180 DEF SEG 2190 SUBRT% = VARPTR(A%(0)) 2200 CALL SUBRT%(R1%,C1%,R2%,C2%) 2210 RETURN 2220 REM ===== CLEAR TOP BOX FORM ===== 2230 R1% = 2 2240 C1% = 3 2250 R2% = 17 2260 C2% = 78 2270 DEF SEG 2280 SUBRT% = VARPTR(A%(0)) 2290 CALL SUBRT%(R1%,C1%,R2%,C2%) 2300 RETURN 2310 REM ===== CLEAR UPPER 1/2 SCREEN FOR DIRECTORY ===== 2320 R1% = 1 2330 C1% = 1 2340 R2% = 17 2350 C2% = 80 2360 DEF SEG 2370 SUBRT% = VARPTR(A%(0)) 2380 CALL SUBRT%(R1%,C1%,R2%,C2%) 2390 LOCATE 18,2 2400 PRINT "KEY"; STRING$(76,"THEN");"CLOSE"; 2410 RETURN 2420 REM ===== CLEAR BOTTOM BOX FORM ===== 2430 R1% = 19 2440 C1% = 3 2450 R2% = 23 2460 C2% = 49 2470 DEF SEG 2480 SUBRT% = VARPTR(A%(0)) 2490 CALL SUBRT%(R1%,C1%,R2%,C2%) 2500 RETURN 2510 R1% = 19 2520 C1% = 3 2530 R2% = 23 2540 C2% = 78 2550 DEF SEG 2560 SUBRT% = VARPTR(A%(0)) 2570 CALL SUBRT%(R1%,C1%,R2%,C2%) 2580 RETURN 2590 LOCATE 18,2,0 2600 PRINT "TO"; STRING$(76,"THEN");"RANDOMIZE"; 2610 RETURN 2620 REM ===== QUERY CLEAR AND RETURN ROUTINE ===== 2630 GOSUB 14860 2640 GOSUB 2230 2650 GOSUB 1210 2660 GOSUB 15610 2670 ON MS% GOTO 13070,680,15090,7390,5120,8900,12290,5400,4850 2680 REM ===== FULL BOX FORM ===== 2690 R1% = 2 2700 C1% = 3 2710 R2% = 18 2720 C2% = 78 2730 DEF SEG 2740 SUBRT% = VARPTR(A%(0)) 2750 CALL SUBRT%(R1%,C1%,R2%,C2%) 2760 RETURN 2770 REM ===== INSERT AND BOTTOM BOXES ===== 2780 LOCATE 21,52,0 2790 PRINT SPC( 22); 2800 COLOR 7,0 2810 RETURN 2820 LOCATE 21,10,0 2830 PRINT SPC( 39); 2840 COLOR 7,0 2850 RETURN 2860 REM ===== "SELECT" SUBROUTINE ===== 2870 LOCATE 21,51,0 2880 PRINT SPC( 21); 2890 COLOR 7,0 2900 LOCATE 21,76 2910 COLOR 7,0 2920 LOCATE 21,53 2930 PRINT "SELECT "; 2940 COLOR 7,0 2950 RETURN 2960 LOCATE 21,52,0 2970 PRINT SPC( 21); 2980 COLOR 7,0 2990 LOCATE 21,76 3000 RETURN 3010 REM ===== END Of FORM GENERATION GO TO FORM INPUT TEXT ===== 3020 IF INKEY$ > < "" GOTO 3020 3030 IN$ = INKEY$ 3040 IF IN$ = "" THEN 3030 3050 IF ASC(IN$) < 49 OR ASC(IN$) > 50 THEN SOUND 400,4 : GOTO 3030 3060 RETURN 3070 IF INKEY$ > < "" GOTO 3070 3080 IN$ = INKEY$ 3090 IF IN$ = "" THEN 3080 3100 IF ASC(IN$) < 49 OR ASC(IN$) > 51 THEN SOUND 400,4 : GOTO 3080 3110 RETURN 3120 IF INKEY$ > < "" GOTO 3120 3130 IN$ = INKEY$ 3140 IF IN$ = "" THEN 3130 3150 IF ASC(IN$) < 49 OR ASC(IN$) > 52 THEN SOUND 400,4 : GOTO 3130 3160 RETURN 3170 IF INKEY$ > < "" GOTO 3170 3180 IN$ = INKEY$ 3190 IF IN$ = "" THEN 3180 3200 IF ASC(IN$) < 49 OR ASC(IN$) > 53 THEN SOUND 400,4 : GOTO 3180 3210 RETURN 3220 IF INKEY$ > < "" GOTO 3220 3230 IN$ = INKEY$ 3240 IF IN$ = "" THEN 3230 3250 IF ASC(IN$) < 49 OR ASC(IN$) > 54 THEN SOUND 400,4 : GOTO 3230 3260 RETURN 3270 IF INKEY$ > < "" GOTO 3270 3280 IN$ = INKEY$ 3290 IF IN$ = "" THEN 3280 3300 IF ASC(IN$) < 49 OR ASC(IN$) > 56 THEN SOUND 400,4 : GOTO 3280 3310 RETURN 3320 IF INKEY$ > < "" GOTO 3320 3330 IN$ = INKEY$ 3340 IF IN$ = "" THEN 3330 3350 IF ASC(IN$) < 49 OR VAL(IN$) > 200 THEN SOUND 400,4 : GOTO 3330 3360 RETURN 3370 IN$ = INKEY$ 3380 IF IN$ = "" THEN 3370 3390 YN% = 0 3400 IF (IN$ = "Y" OR IN$ = "y") THEN YN% = 1 : RETURN 3410 IF (IN$ = "N" OR IN$ = "n") THEN YN% = 2 : RETURN 3420 SOUND 400,4 3430 GOTO 3370 3440 IF INKEY$ > < "" GOTO 3440 3450 IN$ = INKEY$ 3460 IF IN$ = "" THEN 3450 3470 IF IN$ < > CHR$(13) THEN SOUND 400,4 : GOTO 3450 3480 RETURN 3490 IN$ = INKEY$ 3500 IF IN$ = "" THEN 3490 3510 IF (IN$ = CHR$(65) OR IN$ = CHR$(97)) THEN PD% = 1 : RETURN 3520 IF (IN$ = CHR$(66) OR IN$ = CHR$(98)) THEN PD% = 2 : RETURN 3530 IF (IN$ = CHR$(67) OR IN$ = CHR$(99)) THEN PD% = 3 : RETURN 3540 IF (IN$ = CHR$(68) OR IN$ = CHR$(100)) THEN PD% = 4 : RETURN 3550 SOUND 400,4 3560 GOTO 3490 3570 REM ===== INPUT ROUTINE FOR LETTER RESPONSES ===== 3580 FIN$ = "" 3590 IF FINLEN% = 0 THEN FINLEN% = 255 3600 IF INKEY$ > < "" THEN 3600 3610 INPTR$ = INKEY$ 3620 IF INPTR$ = "" THEN 3610 3630 IF INPTR$ = CHR$(13) THEN RETURN 3640 IF INPTR$ < > CHR$(8) THEN 3690 3650 IF FIN$ = "" THEN SOUND 600,4 : GOTO 3610 3660 PRINT CHR$(29);"<UNK! {FE22}>; CHR$(29); 3670 FIN$ = LEFT$((FIN$), LEN(FIN$) - 1) 3680 GOTO 3610 3690 IF LEN(FIN$) = FINLEN% THEN SOUND 600,4 : GOTO 3610 3700 IF ASC(INPTR$) < 31 OR ASC(INPTR$) > 125 THEN SOUND 400,4 : GOTO 3610 3710 PRINT INPTR$; 3720 FIN$ = FIN$ + INPTR$ 3730 GOTO 3610 3740 END 3750 REM ===== INITIAL FILE OR SINGLE LABEL INPUT PROGRAM ===== 3760 GOSUB 2220 3770 GOSUB 2420 3780 COLOR 7,0 3790 LOCATE 21,30,0 3800 PRINT "Make DATA Entries "; 3810 LOCATE 17,20 3820 PRINT "Do not use QUOTATION MARKS when entering data!"; 3830 COLOR 7,0 3840 GOSUB 7090 3850 P! = 200 3860 FOR I! = 1 TO 200 3870 COLOR 7,0 3880 GOSUB 7220 3910 GOSUB 2780 3920 LOCATE 21,52,0 3930 PRINT "Record #:"; 3940 LOCATE 21,64,0 3950 PRINT I!; 3960 LOCATE 4,30,1,0,7 3970 FINLEN% = 41 3980 GOSUB 3570 3990 A$(I!) = FIN$ 4000 COLOR 7,0 4010 LOCATE 4,30,0 4020 PRINT A$(I!); 4030 IF (A$(I!) = "END" OR A$(I!) = "end") THEN P! = I! 4040 IF (A$(I!) = "END" OR A$(I!) = "end") THEN 4760 4050 LOCATE 6,30,1 4060 FINLEN% = 41 4070 GOSUB 3570 4080 B$(I!) = FIN$ 4090 COLOR 7,0 4100 LOCATE 6,30,0 4110 PRINT B$(I!); 4120 LOCATE 8,30,1 4130 FINLEN% = 41 4140 GOSUB 3570 4150 C$(I!) = FIN$ 4160 COLOR 7,0 4170 LOCATE 8,30,0 4180 PRINT C$(I!) 4190 LOCATE 10,30,1 4200 FINLEN% = 41 4210 GOSUB 3570 4220 D$(I!) = FIN$ 4230 COLOR 7,0 4240 LOCATE 10,30,0 4250 PRINT D$(I!); 4260 LOCATE 12,30,1 4270 FINLEN% = 41 4280 GOSUB 3570 4290 E$(I!) = FIN$ 4300 COLOR 7,0 4310 LOCATE 12,30,0 4320 PRINT E$(I!); 4330 LOCATE 14,30,1 4340 FINLEN% = 41 4350 GOSUB 3570 4360 F$(I!) = FIN$ 4370 COLOR 7,0 4380 LOCATE 14,30,0 4390 PRINT F$(I!); 4400 GOSUB 2420 4410 LOCATE 21,20,0 4420 COLOR 7,0 4430 PRINT "Is this correct <Y/N> "; 4440 COLOR 7,0 4450 GOSUB 3370 4460 IF YN% = 1 THEN 4610 4470 IF YN% = 2 THEN 4480 4480 GOSUB 2420 4490 GOSUB 2780 4500 GOSUB 2820 4510 LOCATE 21,18 4520 COLOR 7,0 4530 PRINT "Re-enter what line? "; 4540 COLOR 7,0 4550 LOCATE 21,55 4560 PRINT " Line # "; 4570 GOSUB 3220 4580 LOCATE 21,64 4590 PRINT VAL(IN$); 4600 ON VAL(IN$) GOTO 6240,6280,6320,6360,6400,6440 4610 GOSUB 2420 4620 LOCATE 21,18 4630 COLOR 7,0 4640 PRINT "ENTER "; 4650 COLOR 7,0 4660 PRINT CHR$(34)"END" CHR$(34); 4670 COLOR 7,0 4680 PRINT " To CLOSE entries "; 4690 NEXT 4700 NEXT 4710 LOCATE 21,18 4720 COLOR 7,0 4730 PRINT SPC( 30); 4740 PRINT "To Store on DISK <PRESS> 2"; 4750 COLOR 7,0 4760 GOSUB 2420 4770 COLOR 7,0 4780 LOCATE 21,20 4790 PRINT "SAVE to DISK <Y/N> "; 4800 COLOR 7,0 4810 GOSUB 3370 4820 IF YN% = 1 THEN 4840 4830 IF YN% = 2 THEN 5380 4840 REM ===== DATA SAVE ROUTINE TO DISK ===== 4850 GOSUB 2510 4860 GOSUB 1560 4870 COLOR 7,0 4880 LOCATE 21,27,0 4890 PRINT "What is FILE name? "; 4900 GOSUB 2960 4910 FINLEN% = 14 4920 LOCATE 21,52 4930 COLOR 7,0 4940 PRINT "DRIVE? <UNK! {FE3A}><UNK! {FEFE}><UNK! {FEFE}><UNK! {FEFE}><UNK! {FEFE}>.<UNK! {FEFE}><UNK! {FE22}>; 4950 LOCATE 21,59,0 4960 COLOR 7,0 4970 GOSUB 3570 4980 FILESPEC$ = FIN$ 4990 COLOR 7,0 5000 GOSUB 2820 5010 OPEN "O",1,FILESPEC$ 5020 WRITE #1,P! 5030 FOR I! = 1 TO P! 5040 WRITE #1,A$(I!),B$(I!),C$(I!),D$(I!),E$(I!),F$(I!) 5050 IF (A$(I!) = "END" OR A$(I!) = "end") THEN P! = I! 5060 IF (A$(I!) = "END" OR A$(I!) = "end") THEN 5080 5070 NEXT 5080 CLOSE 5090 GOSUB 14860 5100 GOTO 5380 5110 REM ===== DISK DATA READ ROUTINE ===== 5120 GOSUB 2510 5130 GOSUB 1560 5140 LOCATE 21,27 5150 COLOR 7,0 5160 PRINT "What is FILE name? "; 5170 GOSUB 2960 5180 FINLEN% = 14 5190 LOCATE 21,52 5200 COLOR 7,0 5210 PRINT "DRIVE? <UNK! {FE3A}><UNK! {FEFE}><UNK! {FEFE}><UNK! {FEFE}><UNK! {FEFE}>.<UNK! {FEFE}><UNK! {FE22}>; 5220 LOCATE 21,59,0 5230 COLOR 7,0 5240 GOSUB 3570 5250 FILESPEC$ = FIN$ 5260 COLOR 7,0 5270 GOSUB 2820 5280 OPEN "I",1,FILESPEC$ 5290 INPUT #1,P! 5300 FOR I! = 1 TO P! 5310 INPUT #1,A$(I!),B$(I!),C$(I!),D$(I!),E$(I!),F$(I!) 5320 IF (A$(I!) = "END" OR A$(I!) = "end") THEN P! = I! 5330 IF (A$(I!) = "END" OR A$(I!) = "END") THEN 5350 5340 NEXT 5350 CLOSE 5360 GOSUB 14860 5370 GOSUB 2220 5380 REM ===== CHANCE TO REVIEW NAMES ===== 5390 GOTO 2620 5400 REM ===== STARTING OUTPUT LOOP ===== 5410 GOSUB 2220 5420 GOSUB 2510 5430 GOSUB 2590 5440 K! = 1 5450 NR% = 13 5460 LOCATE 4,7 5470 FOR I% = K! TO P! 5480 GOTO 5490 5490 LOCATE ,7 5500 PRINT I%;" "; 5510 PRINT USING PR$;A$(I%);B$(I%) 5520 IF I% = NR% THEN 5540 ELSE 5530 5530 NEXT 5540 GOSUB 2510 5550 LOCATE 21,30 5560 COLOR 7,0 5570 PRINT "<PRESS> ENTER to Continue!"; 5580 COLOR 7,0 5590 GOSUB 3440 5600 IF I% = P! THEN 5620 5610 IF I% < P! THEN K! = I% : NR% = NR% + 13 : GOSUB 2680 : GOTO 5460 5620 GOSUB 2510 5630 LOCATE 21,30 5640 COLOR 7,0 5650 PRINT "That is the last Record"; 5660 FOR I! = 1 TO 2000 5670 NEXT 5680 COLOR 7,0 5690 GOTO 2620 5700 PRINT "ADD RECORDS TO FILE <PRESS> 3"; 5710 COLOR 7,0 5720 LOCATE 21,50,0 5730 GOSUB 2870 5740 GOSUB 14860 5750 GOSUB 3070 5760 ON VAL(IN$) GOTO 8890,7380,13060 5770 'GOSUB 2420 5780 LOCATE 3,32 5790 COLOR 7,0 5800 PRINT "LABEL/FILE PROGRAM"; 5810 COLOR 7,0 5820 LOCATE 4,32 5830 COLOR 7,0 5840 PRINT "THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN"; 5850 COLOR 7,0 5860 LOCATE 6,35 5870 COLOR 7,0 5880 PRINT "C H O I C E S"; 5890 COLOR 7,0 5900 LOCATE 7,35 5910 COLOR 7,0 5920 PRINT "THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN"; 5930 COLOR 7,0 5940 LOCATE 9,25 5950 COLOR 7,0 5960 PRINT "Recall Disk FILE 1"; 5970 COLOR 7,0 5980 LOCATE 11,25 5990 COLOR 7,0 6000 PRINT "Open New FILE 2"; 6010 COLOR 7,0 6020 LOCATE 13,25 6030 COLOR 7,0 6040 PRINT "Make single label 3"; 6050 COLOR 7,0 6060 LOCATE 15,25 6070 COLOR 7,0 6080 PRINT "CONTROL Menu 4"; 6090 COLOR 7,0 6100 LOCATE 21,20 6110 COLOR 7,0 6120 PRINT "Select & <PRESS> a Number"; 6130 GOSUB 2870 6140 GOSUB 14860 6150 GOSUB 3120 6160 ON VAL(IN$) GOTO 5110,3750,3750,2620 6170 REM ===== INDIVIDUAL LINE CORRECTION ROUTINE ===== 6180 CLEAR 570 6190 FOR I% = 4 TO 14 STEP 2 6200 LOCATE I%,28 6210 PRINT " "; STRING$(41,254); 6220 NEXT 6230 GOTO 6480 6240 COLOR 7,0 6250 LOCATE 4,28 6260 PRINT " "; STRING$(41,254); 6270 GOTO 6480 6280 COLOR 7,0 6290 LOCATE 6,28 6300 PRINT " "; STRING$(41,254); 6310 GOTO 6590 6320 COLOR 7,0 6330 LOCATE 8,28 6340 PRINT " "; STRING$(41,254); 6350 GOTO 6680 6360 COLOR 7,0 6370 LOCATE 10,28 6380 PRINT " "; STRING$(41,254); 6390 GOTO 6770 6400 COLOR 7,0 6410 LOCATE 12,28 6420 PRINT " "; STRING$(41,254); 6430 GOTO 6860 6440 COLOR 7,0 6450 LOCATE 14,28 6460 PRINT " "; STRING$(41,254); 6470 GOTO 6950 6480 LOCATE 4,30 6490 COLOR 7,0 6500 FINLEN% = 41 6510 GOSUB 3570 6520 A$(I!) = FIN$ 6530 LOCATE 4,30,0 6540 PRINT A$(I!); 6550 COLOR 7,0 6560 GOTO 4400 6570 IF (A$(I!) = "END" OR A$(I!) = "end") THEN P! = I! 6580 IF (A$(I!) = "END" OR A$(I!) = "end") THEN 4760 6590 LOCATE 6,30,1 6600 COLOR 7,0 6610 FINLEN% = 41 6620 GOSUB 3570 6630 B$(I!) = FIN$ 6640 LOCATE 6,30,0 6650 PRINT B$(I!); 6660 COLOR 7,0 6670 GOTO 4400 6680 LOCATE 8,30,1 6690 COLOR 7,0 6700 FINLEN% = 41 6710 GOSUB 3570 6720 C$(I!) = FIN$ 6730 LOCATE 8,30,0 6740 PRINT C$(I!); 6750 COLOR 7,0 6760 GOTO 4400 6770 LOCATE 10,30,1 6780 COLOR 7,0 6790 FINLEN% = 41 6800 GOSUB 3570 6810 D$(I!) = FIN$ 6820 LOCATE 10,30,0 6830 PRINT D$(I!); 6840 COLOR 7,0 6850 GOTO 4400 6860 LOCATE 12,30,1 6870 COLOR 7,0 6880 FINLEN% = 41 6890 GOSUB 3570 6900 E$(I!) = FIN$ 6910 LOCATE 12,30,0 6920 PRINT E$(I!); 6930 COLOR 7,0 6940 GOTO 4400 6950 LOCATE 14,30,1 6960 COLOR 7,0 6970 FINLEN% = 41 6980 GOSUB 3570 6990 F$(I!) = FIN$ 7000 LOCATE 14,30,0 7010 PRINT F$(I!); 7020 COLOR 7,0 7030 GOTO 4400 7040 REM ===== LINE COLOR LINE ROUTINE ===== 7090 LOCATE 4,14:PRINT "Address 1: "; 7100 LOCATE 5,14:PRINT "~~~~~~~"; 7110 LOCATE 6,14:PRINT "Address 1: "; 7120 LOCATE 7,14:PRINT "~~~~~~~"; 7130 LOCATE 8,14:PRINT "Address 1: "; 7140 LOCATE 9,14:PRINT "~~~~~~~"; 7150 LOCATE 10,14:PRINT "Order Data 4: "; 7160 LOCATE 11,14:PRINT "~~~~~~~~~~"; 7170 LOCATE 12,14:PRINT "Pay Data 5: "; 7180 LOCATE 13,14:PRINT "~~~~~~~~"; 7190 LOCATE 14,14:PRINT "Comments 6: "; 7200 LOCATE 15,14:PRINT "~~~~~~~~"; 7210 RETURN 7220 REM ===== COLORS IN INPUT LINES ===== 7230 LOCATE 2,28 7240 COLOR 7,0 7250 PRINT " " STRING$(15,32) CHR$(3); 7260 COLOR 7,0 7270 LOCATE 2,22 7280 PRINT "MAX for EXPANDED PRINT"; 7290 LOCATE 2,47 7300 PRINT "with 4 RENUM inch labels" 7310 FOR Q% = 4 TO 14 STEP 2 7320 COLOR 7,0 7330 LOCATE Q%,30 7340 PRINT STRING$(41,254); 7350 COLOR 7,0 7360 NEXT 7370 RETURN 7380 REM ===== EDIT INDIVIDUAL RECORDS ROUTINE ===== 7390 Z% = 0 7400 GOSUB 2510 7410 GOSUB 1560 7420 COLOR 7,0 7430 LOCATE 20,18 7440 PRINT "What RECORD NUMBER To edit "; 7450 COLOR 7,0 7460 LOCATE 22,18 7470 PRINT "Enter RECORD NUMBER "; 7480 GOSUB 2870 7490 GOSUB 3320 7500 Z! = VAL(IN$) 7510 GOSUB 14860 7520 IF I% = 0 THEN 15040 : IF (Z! < 1 OR Z! > P!) THEN 7400 7530 REM ===== DISPLAYING RECORDS TO BE EDITED ===== 7540 ON Z! GOSUB 2220 7550 GOSUB 7040 7560 GOSUB 7220 7570 GOSUB 2780 7580 COLOR 7,0 7590 LOCATE 21,53,0 7600 PRINT "Record #: "; 7610 LOCATE 21,65 7620 PRINT Z!; 7630 LOCATE 4,30 7640 PRINT A$(Z!); 7650 IF A$(1) = "END" THEN P! = Z! : COLOR 7,0 7660 LOCATE 6,30 7670 PRINT B$(Z!); 7680 LOCATE 8,30 7690 PRINT C$(Z!); 7700 LOCATE 10,30 7710 PRINT D$(Z!); 7720 LOCATE 12,30 7730 PRINT E$(Z!); 7740 LOCATE 14,30 7750 PRINT F$(Z!); 7760 GOSUB 2420 7770 COLOR 7,0 7780 GOSUB 2820 7790 LOCATE 21,20 7800 PRINT "Is this correct <Y/N> "; 7810 GOSUB 3370 7820 IF YN% = 1 THEN 8820 7830 IF YN% = 2 THEN 7840 7840 GOSUB 2420 7850 GOSUB 2780 7860 GOSUB 2820 7870 LOCATE 21,18 7880 COLOR 7,0 7890 PRINT "Re-enter what LINE? "; 7900 COLOR 7,0 7910 LOCATE 21,55 7920 PRINT " Line # "; 7930 GOSUB 3220 7940 LOCATE 21,64 7950 PRINT VAL(IN$); 7960 ON VAL(IN$) GOTO 7980,8020,8060,8100,8140,8180 7970 REM ===== INDIVIDUAL LINE ROUTINE FOR RECALLED RECORDS ===== 7980 COLOR 7,0 7990 LOCATE 4,30,1,0,7:COLOR 0,7:PRINT A$(Z!) 8010 GOTO 8260 8020 COLOR 7,0 8030 LOCATE 6,30,1,0,7:COLOR 0,7 8040 PRINT B$(Z!) 8050 GOTO 8370 8060 COLOR 7,0 8070 LOCATE 8,30,1,0,7:COLOR 0,7 8080 PRINT C$(Z!) 8090 GOTO 8460 8100 COLOR 7,0 8110 LOCATE 10,30,1,0,7:COLOR 0,7 8120 PRINT D$(Z!) 8130 GOTO 8550 8140 COLOR 7,0 8150 LOCATE 12,30,1,0,7:COLOR 0,7 8160 PRINT E$(Z!) 8170 GOTO 8640 8180 COLOR 7,0 8190 LOCATE 14,30,1,0,7:COLOR 0,7 8200 PRINT F$(Z!) 8205 COLOR 7,0 8210 GOTO 8730 8220 FOR Q% = 4 TO 14 STEP 2 8230 LOCATE Q%,30,1,0,7 8240 PRINT STRING$(41,254); 8250 NEXT 8260 LOCATE 4,30,1 8270 COLOR 7,0 8280 FINLEN% = 41 8290 GOSUB 3570 8300 A$(Z!) = FIN$ 8310 LOCATE 4,30,0 8320 PRINT A$(Z!); 8330 COLOR 7,0 8340 GOTO 7760 8350 IF A$(Z!) = "END" OR A$(Z!) = "end") THEN P! = Z! 8360 IF A$(Z!) = "END" OR A$(Z!) = "end") THEN 8830 8370 LOCATE 6,30,1 8380 COLOR 7,0 8390 FINLEN% = 41 8400 GOSUB 3570 8410 B$(Z!) = FIN$ 8420 LOCATE 6,30,0 8430 PRINT B$(Z!); 8440 COLOR 7,0 8450 GOTO 7760 8460 LOCATE 8,30,1 8470 COLOR 7,0 8480 FINLEN% = 41 8490 GOSUB 3570 8500 C$(Z!) = FIN$ 8510 LOCATE 8,30,0 8520 PRINT C$(Z!); 8530 COLOR 7,0 8540 GOSUB 7760 8550 LOCATE 10,30,1 8560 COLOR 7,0 8570 FINLEN% = 41 8580 GOSUB 3570 8590 D$(Z!) = FIN$ 8600 LOCATE 10,30,0 8610 PRINT D$(Z!); 8620 COLOR 7,0 8630 GOTO 7760 8640 LOCATE 12,30,1 8650 COLOR 7,0 8660 FINLEN% = 41 8670 GOSUB 3570 8680 E$(Z!) = FIN$ 8690 LOCATE 12,30,0 8700 PRINT E$(Z!); 8710 COLOR 7,0 8720 GOTO 7760 8730 LOCATE 14,30,1 8740 COLOR 7,0 8750 FINLEN% = 41 8760 GOSUB 3570 8770 F$(Z!) = FIN$ 8780 LOCATE 14,30,0 8790 PRINT F$(Z!); 8800 COLOR 7,0 8810 GOSUB 7760 8820 REM ===== LOOK AT ANOTHER RECORD AFTER CORRECTION ===== 8830 GOSUB 2430 8840 LOCATE 21,18 8850 COLOR 7,0 8860 PRINT "Edit another RECORD <Y/N> "; 8870 GOSUB 3370 8880 ON YN% GOTO 7380,2620 8890 REM ===== LABEL PRINT ROUTINES ===== 8900 GOSUB 14860 8910 GOSUB 2220 8920 LOCATE 3,32 8930 COLOR 7,0 8940 PRINT "LABEL/FILE PROGRAM"; 8950 COLOR 7,0 8960 LOCATE 4,32 8970 COLOR 7,0 8980 PRINT "THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN"; 8990 COLOR 7,0 9000 LOCATE 5,35 9010 COLOR 7,0 9020 PRINT "C H O I C E S" 9030 COLOR 7,0 9040 LOCATE 6,35 9050 COLOR 7,0 9060 PRINT "THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN"; 9070 COLOR 7,0 9080 LOCATE 8,25 9090 COLOR 7,0 9100 PRINT "1ST Line EXPANDED Print.......1"; 9110 COLOR 7,0 9120 LOCATE 9,25 9130 COLOR 7,0 9140 PRINT "All lines EXPANDED Print......2"; 9150 COLOR 7,0 9160 LOCATE 10,25 9170 COLOR 7,0 9180 PRINT "All lines ITALICS.. ..........3"; 9190 COLOR 7,0 9200 LOCATE 11,25 9210 COLOR 7,0 9220 PRINT "All lines 10 PITCH............4"; 9230 COLOR 7,0 9240 LOCATE 12,25 9250 COLOR 7,0 9260 PRINT "All lines COMPRESSED..........5"; 9270 COLOR 7,0 9280 LOCATE 13,25 9290 COLOR 7,0 9300 PRINT "Return to CONTROL Menu........6"; 9310 COLOR 7,0 9320 LOCATE 14,25 9330 COLOR 7,0 9340 PRINT "Disk Directories..............7"; 9350 LOCATE 15,25 9360 PRINT "QUIT the program..............8"; 9370 COLOR 7,0 9380 GOSUB 2510 9390 GOSUB 1560 9400 LOCATE 21,20 9410 COLOR 7,0 9420 PRINT "Select & <PRESS> a NUMBER "; 9430 GOSUB 2870 9440 GOSUB 14860 9450 GOSUB 3270 9460 ON VAL(IN$) GOTO 9490,9530,9570,9610,9650,2620,15080,12280 9470 GOSUB 2220 9480 GOTO 5380 9490 REM ===== 1ST LINE EXPANDED ===== 9500 GOSUB 2220 9510 GOSUB 9690 9520 GOTO 10560 9530 REM ===== ALL LINES EXPANDED ===== 9540 GOSUB 2220 9550 GOSUB 9690 9560 GOTO 10880 9570 REM ===== ALL LINES ITALICS ===== 9580 GOSUB 2220 9590 GOSUB 9690 9600 GOTO 11180 9610 REM ===== 10 PITCH (PICA) ===== 9620 GOSUB 2220 9630 GOSUB 9690 9640 GOTO 11490 9650 REM ===== ALL LINES CONDENSED ===== 9660 GOSUB 2220 9670 GOSUB 9690 9680 GOTO 11800 9690 LOCATE 6,35 9700 COLOR 7,0 9710 PRINT "C H O I C E S"; 9720 COLOR 7,0 9730 LOCATE 7,35 9740 COLOR 7,0 9750 PRINT "THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN"; 9760 COLOR 7,0 9770 LOCATE 9,25 9780 COLOR 7,0 9790 PRINT "Check Printer ON and SELECTED."; 9800 COLOR 7,0 9810 LOCATE 10,25 9820 COLOR 7,0 9830 PRINT "CHECK LABELS LOADED AND ALIGNED"; 9840 COLOR 7,0 9850 LOCATE 11,25 9860 COLOR 7,0 9870 PRINT "Select record RANGE to print"; 9880 COLOR 7,0 9890 LOCATE 13,25 9900 COLOR 7,0 9910 PRINT "I.E. <PRESS> FIRST Record Number to Print"; 9920 LOCATE 14,31 9930 PRINT "Then <PRESS> Last Record Number"; 9940 COLOR 7,0 9950 GOSUB 2820 9960 LOCATE 21,20 9970 COLOR 7,0 9980 PRINT "Select Record Print Range "; 9990 LB! = 0 10000 LE! = 0 10010 GOSUB 2780 10020 LOCATE 21,52 10030 COLOR 7,0 10040 PRINT "First # "; 10050 COLOR 7,0 10060 LOCATE 21,60 10070 GOSUB 3320 10080 LB! = VAL(IN$) 10090 LOCATE 21,62 10100 PRINT LB!; 10110 FOR I% = 1 TO 2000 10120 NEXT 10130 GOSUB 2780 10140 LOCATE 21,52,0 10150 COLOR 7,0 10160 PRINT "Last #"; 10170 COLOR 7,0 10180 GOSUB 14860 10190 GOSUB 3320 10200 LE! = VAL(IN$) 10210 LOCATE 21,62 10220 PRINT LE!; 10230 FOR I% = 1 TO 1000 10240 NEXT 10250 GOSUB 2220 10260 LOCATE 6,35 10270 COLOR 7,0 10280 PRINT "PRINT LABELS"; 10290 COLOR 7,0 10300 LOCATE 7,35 10310 COLOR 7,0 10320 PRINT "THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN"; 10330 COLOR 7,0 10340 LOCATE 12,30 10350 COLOR 7,0 10360 PRINT "How many of each labeL. "; 10370 COLOR 7,0 10380 LOCATE 21,16 10390 COLOR 7,0 10400 PRINT "Indicate QUANTITY of each wanted"; 10410 REM ===== NUMBER OF EACH LABEL ===== 10420 GOSUB 2780 10430 LOCATE 21,52 10440 COLOR 7,0 10450 PRINT "# of each"; 10460 COLOR 7,0 10470 NL! = 0 10480 GOSUB 3270 10490 NL! = VAL(IN$) 10500 LOCATE 21,62 10510 PRINT NL!; 10520 FOR I% = 1 TO 2000 10530 NEXT 10540 GOSUB 14860 10550 RETURN 10560 REM ===== 1ST LINE ONLY EXPANDED/EMPHASIZED PRINT ===== 10570 LPRINT CHR$(27) + "@"; 10580 LPRINT CHR$(27) + "E"; 10590 FOR M! = 1 TO NL! 10600 FOR N! = LB! TO LE! 10610 LPRINT CHR$(14); 10620 LPRINT A$(N!) 10630 LPRINT CHR$(20); 10640 LPRINT B$(N!) 10650 LPRINT C$(N!) 10660 LPRINT " " 'D$(N!) 10670 LPRINT " " 'E$(N!) 10680 LPRINT " " 'F$(N!) 10690 NEXT 10700 NEXT 10710 LPRINT CHR$(27) + "@"; 10720 GOSUB 2220 10730 GOSUB 2420 10740 LOCATE 20,13 10750 COLOR 7,0 10760 PRINT "To REPRINT This label/s <PRESS> 1"; 10770 LOCATE 21,13 10780 COLOR 7,0 10790 PRINT "TO print DIFFERENT label/s <PRESS> 2"; 10800 LOCATE 22,13 10810 COLOR 7,0 10820 PRINT "To CONTROL Menu <PRESS> 3"; 10830 GOSUB 2870 10840 GOSUB 14860 10850 GOSUB 3070 10860 NL! = 1 10870 ON VAL(IN$) GOTO 10570,8890,2620 10880 REM ===== ALL LINES EXPANDED/EMPHASIZED PRINT ===== 10890 LPRINT CHR$(27) + "@"; 10900 LPRINT CHR$(27) + "E"; 10910 FOR N! = LB! TO LE! 10920 FOR M! = 1 TO NL! 10930 LPRINT CHR$(14);A$(N!) 10940 LPRINT CHR$(14);B$(N!) 10950 LPRINT CHR$(14);C$(N!) 10960 LPRINT " " 'CHR$(14);D$(N!) 10970 LPRINT " " 'CHR$(14);E$(N!) 10980 LPRINT " " 'CHR$(14);F$(N!) 10990 NEXT 11000 NEXT 11010 LPRINT CHR$(27) + "@"; 11020 GOSUB 2220 11030 GOSUB 2420 11040 LOCATE 20,13 11050 COLOR 7,0 11060 PRINT "To REPRINT this label/s <PRESS> 1"; 11070 LOCATE 21,13 11080 COLOR 7,0 11090 PRINT "To print DIFFERENT label/s <PRESS> 2"; 11100 LOCATE 22,13 11110 COLOR 7,0 11120 PRINT "To CONTROL Menu <PRESS> 3"; 11130 GOSUB 2870 11140 GOSUB 14860 11150 GOSUB 3070 11160 NL! = 1 11170 ON VAL(IN$) GOTO 10890,8890,2620 11180 REM ===== ALL LINES ITACICS/EMPHASIZED ===== 11190 LPRINT CHR$(27) + "@"; 11200 LPRINT CHR$(27); CHR$(69); 11210 LPRINT CHR$(27) + CHR$(52); 11220 FOR M! = 1 TO NL! 11230 FOR N! = LB! TO LE! 11240 LPRINT A$(N!) 11250 LPRINT B$(N!) 11260 LPRINT C$(N!) 11270 LPRINT " " 'D$(N!) 11280 LPRINT " " 'E$(N!) 11290 LPRINT " " 'F$(N!) 11300 NEXT 11310 NEXT 11320 LPRINT CHR$(27) + "@"; 11330 GOSUB 2220 11340 GOSUB 2420 11350 LOCATE 20,13 11360 COLOR 7,0 11370 PRINT "To REPRINT this label/s <PRESS> 1"; 11380 LOCATE 21,13 11390 COLOR 7,0 11400 PRINT "To print DIFFERENT label/s <PRESS> 2"; 11410 LOCATE 22,13 11420 COLOR 7,0 11430 PRINT "To CONTROL Menu <PRESS> 3"; 11440 GOSUB 2870 11450 GOSUB 14860 11460 GOSUB 3070 11470 NL! = 1 11480 ON VAL(IN$) GOTO 11190,8890,2620 11490 REM ===== 10 PITCH (PICA) PRINT ===== 11500 LPRINT CHR$(27); CHR$(64); 11510 LPRINT CHR$(27); CHR$(69); 11520 LPRINT CHR$(27) + CHR$(66) + CHR$(1); 11530 FOR M! = 1 TO NL! 11540 FOR N! = LB! TO LE! 11550 LPRINT A$(N!) 11560 LPRINT B$(N!) 11570 LPRINT C$(N!) 11580 LPRINT " " 'D$(N!) 11590 LPRINT " " 'E$(N!) 11600 LPRINT " " 'F$(N!) 11610 NEXT 11620 NEXT 11630 LPRINT CHR$(27) + "@"; 11640 GOSUB 2220 11650 GOSUB 2420 11660 LOCATE 20,13 11670 COLOR 7,0 11680 PRINT "To REPRINT this label/s <PRESS> 1"; 11690 LOCATE 21,13 11700 COLOR 7,0 11710 PRINT "To print DIFFERENT label/s <PRESS> 2"; 11720 LOCATE 22,13 11730 COLOR 7,0 11740 PRINT "To CONTROL Menu <PRESS> 3"; 11750 GOSUB 2870 11760 GOSUB 14860 11770 GOSUB 3070 11780 NL! = 1 11790 ON VAL(IN$) GOTO 11500,8890,2620 11800 REM ===== ALL LINES CONDENSED ===== 11810 LPRINT CHR$(27); CHR$(64); 11820 FOR M! = 1 TO NL! 11830 FOR N! = LB! TO LE! 11840 LPRINT CHR$(15);A$(N!) 11850 LPRINT B$(N!) 11860 LPRINT C$(N!) 11870 LPRINT " " 'D$(N!) 11880 LPRINT " " 'E$(N!) 11885 LPRINT " " 'F$(N!) 11890 LPRINT CHR$(27) + "@" 11900 NEXT 11910 NEXT 11920 LPRINT CHR$(27) + "@"; 11930 GOSUB 2220 11940 GOSUB 2420 11950 LOCATE 20,13 11960 COLOR 7,0 11970 PRINT "To REPRINT this label/s <PRESS> 1"; 11980 LOCATE 21,13 11990 COLOR 7,0 12000 PRINT "To print DIFFERENT label/s <PRESS> 2"; 12010 LOCATE 22,13 12020 COLOR 7,0 12030 PRINT "To CONTROL Menu <PRESS> 3"; 12040 GOSUB 2870 12050 GOSUB 14860 12060 GOSUB 3070 12070 NL! = 1 12080 ON VAL(IN$) GOTO 11810,8890,2620 12090 REM ===== PRINT OUT FIRST LINE OF EACH RECORD ===== 12100 CLS:LOCATE 5,30:PRINT"EXTRACT FROM: ";FILESPEC$; 12110 LPRINT 12120 LPRINT 12130 PN! = 0 12140 PN! = 5 12150 CLS 12160 PRINT 12170 LOCATE 7,10:PRINT"SALES SUMMARY REPORT ";FILESPEC$;" AS OF ";DATE$; 12180 PRINT:LPRINT CHR$(15);:WIDTH "LPT1:",132 12190 PRINT:LPRINT TAB( 45)"SALES SUMMARY REPORT ";FILESPEC$;" AS OF ";DATE$ 12195 LPRINT:LPRINT TAB(10)"Name Order Data Pay Data Comments":LPRINT 12200 FOR I! = 1 TO P! 12210 PRINT TAB( 10);I!;A$(I!) 12222 LPRINT TAB(5)LEFT$(A$(I!),20);TAB(30)LEFT$(D$(I!),30);TAB(65)LEFT$(E$(I!),25);TAB(100)LEFT$(F$(I!),20) 12230 PN! = PN! + 1 12240 IF PN! = 55 THEN LPRINT CHR$(140) : LPRINT STRING$(10,5) : PN! = 5 12250 NEXT 12260 GOSUB 14860 12270 END 12280 REM ===== FINAL SCREEN DISPLAY ===== 12290 GOSUB 2220 12300 GOSUB 2510 12310 GOSUB 14860 12320 LOCATE 8,23 12330 COLOR 7,0 12340 PRINT "Print first LINE & Summary <PRESS> 1"; 12350 LOCATE 9,33 12360 PRINT "<PAPER IN PRINTER>"; 12370 LOCATE 11,23 12380 PRINT "Return to CONTROL Menu <PRESS> 2"; 12390 LOCATE 13,23 12400 PRINT "Thanks! Bye! To QUIT - <PRESS> 3"; 12410 GOSUB 3080 12420 ON VAL(IN$) GOTO 12090,2620,12430 12430 CLS 12440 END 12450 REM ===== ERROR TRAP ROUTINE ===== 12460 GOSUB 2820 12470 KEY ON 12480 KEY OFF 12490 LOCATE 25,28,0 12500 COLOR 24,4 12510 PRINT " ERROR "; 12520 COLOR 7,0 12530 PRINT " #"; ERR ;" IN LINE #"; ERL ; 12540 FOR T! = 1 TO 1000 12550 NEXT 12560 IF ERR = 53 THEN LOCATE 20,10 : PRINT SPC( 30), ELSE 12600; 12570 LOCATE 20,10 12580 PRINT "File not found "; 12590 PRINT " ** Load CORRECT Disk"; 12600 IF ERR = 54 THEN LOCATE 20,10 : PRINT SPC( 30), ELSE 12640; 12610 LOCATE 20,10 12620 PRINT "Bad file mode "; 12630 PRINT " ** Correct File Mode"; 12640 IF ERR = 55 THEN LOCATE 20,10 : PRINT SPC( 30), ELSE 12680; 12650 LOCATE 20,10 12660 PRINT "File already OPEN "; 12670 PRINT " ** CLOSE and REOPEN"; 12680 IF ERR = 61 THEN LOCATE 20,10 : PRINT SPC( 30), ELSE 12720; 12690 LOCATE 20,10 12700 PRINT "Disk FULL "; 12710 PRINT " ** Install New Disk"; 12720 IF ERR = 70 THEN LOCATE 20,10 : PRINT SPC( 30), ELSE 12760; 12730 LOCATE 20,10 12740 PRINT "Disk WRITE PROTECT "; 12750 PRINT " ** Remove W/P Tab"; 12760 IF ERR = 71 THEN LOCATE 20,10 : PRINT SPC( 30), ELSE 12800; 12770 LOCATE 20,10 12780 PRINT "Disk NOT READY "; 12790 PRINT " ** CLOSE Drive Door"; 12800 IF ERR = 24 THEN LOCATE 20,10 : PRINT SPC( 30), ELSE 12840; 12810 LOCATE 20,10 12820 PRINT "Printer OFF-LINE "; 12830 PRINT " ** Set ON-LINE Mode"; 12840 IF ERR = 25 THEN LOCATE 20,10 : PRINT SPC( 30), ELSE 12880; 12850 LOCATE 20,10 12860 PRINT "Printer not ON "; 12870 PRINT " ** Check Printer ON"; 12880 IF ERR = 27 THEN LOCATE 20,10 : PRINT SPC( 30), ELSE 12970; 12890 LOCATE 20,10 12900 PRINT "OUT OF PAPER! "; 12910 PRINT " ** Check Paper Path"; 12920 LOCATE 22,20 12930 GOSUB 2780 12940 GOSUB 2820 12950 GOSUB 1550 12960 RETURN 12970 GOSUB 12920 12980 LOCATE 22,10,0 12990 PRINT "Correct SYSTEM ERROR - <PRESS> ENTER"; 13000 LOCATE 22,10,0 13010 GOSUB 3440 13020 KEY ON 13030 KEY OFF 13040 COLOR 7,0 13050 RESUME 2620 13060 REM ===== ADD TO LOADED FILE ===== 13070 GOSUB 2220 13080 GOSUB 2510 13090 GOSUB 1550 13100 GOSUB 7040 13110 GOSUB 7220 13120 NP! = 0 13130 NP! = P! 13140 P! = 200 13150 GOSUB 2820 13160 COLOR 7,0 13170 LOCATE 21,30 13180 PRINT "MAKE DATA ENTRIES "; 13190 LOCATE 17,26 13200 PRINT "Do not use QUOTATION MARKS when entering data!"; 13210 COLOR 7,0 13220 IF NP! = 0 THEN NP! = 1 : COLOR 6,0 13230 FOR I! = NP! TO P! 13240 GOSUB 7220 13250 COLOR 7,0 13260 GOSUB 2780 13270 COLOR 7,0 13280 LOCATE 21,52,0 13290 PRINT "RECORD #: "; 13300 LOCATE 21,60,0 13310 PRINT I!; 13320 LOCATE 4,30,1,0,7 13330 FINLEN% = 41 13340 GOSUB 3570 13350 A$(I!) = FIN$ 13360 LOCATE 4,30,1 13370 PRINT A$(I!); 13380 IF (A$(I!) = "END" OR A$(I!) = "end") THEN P! = I! 13390 IF (A$(I!) = "END" OR A$(I!) = "end") THEN 4760 13400 LOCATE 6,30,1 13410 FINLEN% = 41 13420 GOSUB 3570 13430 B$(I!) = FIN$ 13440 LOCATE 6,30,0 13450 PRINT B$(I!); 13460 LOCATE 8,30,1 13470 FINLEN% = 41 13480 GOSUB 3570 13490 C$(I!) = FIN$ 13500 LOCATE 8,30,0 13510 PRINT C$(I!); 13520 LOCATE 10,30,1 13530 FINLEN% = 41 13540 GOSUB 3570 13550 D$(I!) = FIN$ 13560 LOCATE 10,30,0 13570 PRINT D$(I!); 13580 LOCATE 12,30,1 13590 FINLEN% = 41 13600 GOSUB 3570 13610 E$(I!) = FIN$ 13620 LOCATE 12,30,0 13630 PRINT E$(I!); 13640 LOCATE 14,30,1 13650 FINLEN% = 41 13660 GOSUB 3570 13670 F$(I!) = FIN$ 13680 LOCATE 14,30,0 13690 PRINT F$(I!); 13700 GOSUB 2420 13710 GOSUB 2820 13720 LOCATE 21,20 13730 COLOR 7,0 13740 PRINT "Is this correct <Y/N> "; 13750 COLOR 7,0 13760 GOSUB 3370 13770 IF YN% = 1 THEN 13920 13780 IF YN% = 2 THEN 13790 13790 GOSUB 2420 13800 GOSUB 2780 13810 GOSUB 2820 13820 LOCATE 21,20 13830 COLOR 7,0 13840 PRINT "Re-enter what LINE? "; 13850 COLOR 7,0 13860 LOCATE 21,55 13870 PRINT " Line # "; 13880 GOSUB 3220 13890 LOCATE 21,64 13900 PRINT VAL(IN$); 13910 ON VAL(IN$) GOTO 14040,14080,14120,14160,14200,14240 13920 GOSUB 2420 13930 GOSUB 2820 13940 LOCATE 21,18 13950 COLOR 7,0 13960 PRINT "ENTER "; 13970 COLOR 7,0 13980 PRINT CHR$(34)"END" CHR$(34); 13990 COLOR 7,0 14000 PRINT " To CLOSE Entries "; 14010 NEXT 14020 NEXT RUN 14030 REM ===== ADDED FILES - INDIVIDUAL LINE CORRECTION ROUTINE ===== 14040 COLOR 7,0 14050 LOCATE 4,28 14060 PRINT " "; STRING$(41,254); 14070 GOTO 14280 14080 COLOR 7,0 14090 LOCATE 6,28 14100 PRINT " "; STRING$(41,254); 14110 GOTO 14390 14120 COLOR 7,0 14130 LOCATE 8,28 14140 PRINT " "; STRING$(41,254); 14150 GOTO 14480 14160 COLOR 7,0 14170 LOCATE 10,28 14180 PRINT " "; STRING$(41,254); 14190 GOTO 14570 14200 COLOR 7,0 14210 LOCATE 12,28 14220 PRINT " "; STRING$(41,254); 14230 GOTO 14660 14240 COLOR 7,0 14250 LOCATE 14,28 14260 PRINT " "; STRING$(41,254); 14270 GOTO 14750 14280 LOCATE 4,30,1 14290 COLOR 7,0 14300 FINLEN% = 41 14310 GOSUB 3570 14320 A$(I!) = FIN$ 14330 LOCATE 4,30,0 14340 PRINT A$(I!); 14350 COLOR 7,0 14360 GOTO 13700 14370 IF (A$(I!) = "END" OR A$(I!) = "end") THEN P! = I! 14380 IF (A$(I!) = "END" OR A$(I!) = "end") THEN 4760 14390 LOCATE 6,30,1 14400 COLOR 7,0 14410 FINLEN% = 41 14420 GOSUB 3570 14430 B$(I!) = FIN$ 14440 LOCATE 6,30,0 14450 PRINT B$(I!); 14460 COLOR 7,0 14470 GOTO 13700 14480 LOCATE 8,30,1 14490 COLOR 7,0 14500 FINLEN% = 41 14510 GOSUB 3570 14520 C$(I!) = FIN$ 14530 LOCATE 8,30,0 14540 PRINT C$(I!); 14550 COLOR 7,0 14560 GOTO 13700 14570 LOCATE 10,30,1 14580 COLOR 7,0 14590 FINLEN% = 41 14600 GOSUB 3570 14610 D$(I!) = FIN$ 14620 LOCATE 10,30,0 14630 PRINT D$(I!); 14640 COLOR 7,0 14650 GOTO 13700 14660 LOCATE 12,30,1 14670 COLOR 7,0 14680 FINLEN% = 41 14690 GOSUB 3570 14700 E$(I!) = FIN$ 14710 LOCATE 12,30,0 14720 PRINT E$(I!); 14730 COLOR 7,0 14740 GOTO 13700 14750 LOCATE 14,30,1 14760 COLOR 7,0 14770 FINLEN% = 41 14780 GOSUB 3570 14790 F$(I!) = FIN$ 14800 LOCATE 14,30,0 14810 PRINT F$(I!); 14820 COLOR 7,0 14830 GOTO 13700 14840 CLS 14850 END 14860 REM ===== ELAPSED TIME PRINTOUT SUBROUTINE ===== 14870 N$ = TIME$ 14880 DEF FN H(H$) = VAL( LEFT$(H$,2)) 14890 DEF FN M(M$) = VAL( MID$(M$,4,2)) 14900 DEF FN S(S$) = VAL( RIGHT$(S$,2)) 14910 TMH! = ( FN H(N$)) - FN H(BB$) 14920 TMM! = ( FN M(N$) - FN M(BB$)) 14930 TMS! = ( FN S(N$) - FN S(BB$)) 14940 KEY ON 14950 KEY OFF 14960 LOCATE 25,3 14970 PRINT "Start Time ";BB$; 14980 LOCATE 25,30 14990 PRINT "End Time ";N$; 15000 LOCATE 25,55 15010 PRINT "Elapsed Time ";TMH!;":"; ABS(TMM!);":"; ABS(TMS!); 15020 RETURN 15030 END 15040 GOSUB 2220 15050 LOCATE 10,30,0 15060 PRINT "Are Records in the File?"; 15070 GOTO 2620 15080 REM ===== DISK DIRECTORY REVIEW ROUTINE ===== 15090 GOSUB 2320 15100 GOSUB 2510 15110 GOSUB 1550 15120 GOSUB 2780 15130 LOCATE 21,20,0 15140 PRINT "What Drive (A,B,C,D)"; 15150 KEY OFF 15160 GOSUB 2870 15170 GOSUB 3490 15180 LOCATE 21,65,0 15190 PRINT IN$; 15200 ON PD% GOTO 15210,15280,15350,15420 15210 LOCATE 3,1 15220 FILES "A:*.*" 15230 COLOR 0,7 15240 LOCATE 2,32 15250 PRINT " Drive A: "; 15260 COLOR 7,0 15270 GOTO 15480 15280 LOCATE 3,1 15290 FILES "B:*.*" 15300 COLOR 0,7 15310 LOCATE 2,32 15320 PRINT " Drive B: "; 15330 COLOR 7,0 15340 GOTO 15480 15350 LOCATE 3,1 15360 FILES "C:*.*" 15370 COLOR 0,7 15380 LOCATE 2,32 15390 PRINT " Drive C: "; 15400 COLOR 7,0 15410 GOTO 15480 15420 LOCATE 3,1 15430 FILES "D:*.*" 15440 COLOR 0,7 15450 LOCATE 2,32 15460 PRINT " Drive D: "; 15470 COLOR 7,0 15480 GOSUB 2510 15490 COLOR 7,0 15500 LOCATE 20,24 15510 PRINT "Another Directory? <PRESS 1>"; 15520 LOCATE 22,24 15530 COLOR 7,0 15540 PRINT "Return to CONTROL Menu? <PRESS 2>"; 15550 COLOR 7,0 15560 GOSUB 3020 15570 ON VAL(IN$) GOTO 15580,15590 15580 GOTO 15080 15590 GOSUB 2320 15600 GOTO 2620 15610 REM ===== CONTROL MENU DISPLAY ROUTINE ===== 15620 GOSUB 2510 15630 GOSUB 2590 15640 LOCATE 20,9,0 15650 PRINT M1ST$; 15660 LOCATE 21,9 15670 PRINT M2ND$; 15680 LOCATE 22,9,0 15690 PRINT M3RD$; 15700 LOCATE 18,25 15710 PRINT " Select and <PRESS> a Letter "; 15720 LOCATE 19,27 15730 PRINT STRING$(27,"~"); 15740 IN$ = INKEY$ 15750 IF IN$ = "" THEN 15740 15760 IF (IN$ = "A" OR IN$ = "a") THEN MS% = 1 : GOSUB 2590 : RETURN 15770 IF (IN$ = "C" OR IN$ = "c") THEN MS% = 2 : GOSUB 2590 : RETURN 15780 IF (IN$ = "D" OR IN$ = "d") THEN MS% = 3 : GOSUB 2590 : RETURN 15790 IF (IN$ = "E" OR IN$ = "e") THEN MS% = 4 : GOSUB 2590 : RETURN 15800 IF (IN$ = "L" OR IN$ = "l") THEN MS% = 5 : GOSUB 2590 : RETURN 15810 IF (IN$ = "P" OR IN$ = "p") THEN MS% = 6 : GOSUB 2590 : RETURN 15820 IF (IN$ = "Q" OR IN$ = "q") THEN MS% = 7 : GOSUB 2590 : RETURN 15830 IF (IN$ = "R" OR IN$ = "r") THEN MS% = 8 : GOSUB 2590 : RETURN 15840 IF (IN$ = "S" OR IN$ = "s") THEN MS% = 9 : GOSUB 2590 : RETURN 15850 SOUND 100,4 15860 GOTO 15740 15870 END 65000 REM ===== FINAL PROGRAM SAVE ROUTINE ===== 65100 SAVE "B:BLUEBERY.BAS"